home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / mori / mori.bas next >
BASIC Source File  |  1993-11-30  |  7KB  |  145 lines
  1. 10000 '/
  2. 10010 '/
  3. 10020 '/
  4. 10030 '
  5. 10040 '初期化
  6. 10050 PLAY OFF  :  FOR L=0 TO 15:PART L,L:NEXT  : PART 8,0  : TEMPO$="t90"
  7. 10060 GT_1$="" : GT_2$=""
  8. 10070 '
  9. 10080 'エクスクルーシブメッセージ送信
  10. 10090 '
  11. 10100 OUTM #0,&HF0,&H41,&H10,&H42,&H12,&H40,&H00,&H7F,&H00,&H41,&HF7'初期化
  12. 10110 OUTM #0,&HF0,&H41,&H10,&H42,&H12,&H40,&H11,&H15,&H02,&H18,&HF7'Dr_set
  13. 10120 'OUTM #0,&HF0,&H41,&H10,&H42,&H12,&H40,&H10,&H15,&H00,&H1B,&HF7'Dr_set off
  14. 10130 OUTM #0,&HF0,&H41,&H10,&H42,&H12,&H40,&H01,&H30,&H03,&H0C,&HF7'Re_set Hall 1
  15. 10140 OUTM #0,&HF0,&H41,&H10,&H42,&H12,&H40,&H01,&H38,&H06,&H01,&HF7'Ch_set Short Delay
  16. 10150 '
  17. 10160 '音色定義
  18. 10170 '
  19. 10180 BASS_1$="@35o1@v100q10u0%c"
  20. 10190 BASS_2$="@37o1@v100q10u0%c"
  21. 10200 STR_1$="@49o3@v78q8u0%c"
  22. 10210 GTUI_C1$="@28o4@v77q10u0%l4"
  23. 10220 GTUI_C2$="@28o4@v100q8u0%r5"
  24. 10230 FANTA$="@89o4@v117q8u0%c"
  25. 10240 '
  26. 10250 'ドラムセット
  27. 10260 '
  28. 10270 DRUM_SET$="@17"
  29. 10280 BSD$="o2%cu0@v87c"  :  SNR$="o2%cu0@v70d" : HIH$="o2%cu0@v80f+"
  30. 10290 OPE$="o2%cu0@v70a+": CRS_R$="o3%cu0@v75c+" : CRS_L$="o3%cu0@v75c+"
  31. 10300 TOM1$="o2%r6u0@v110b" : TOM2$="o2%r2u0@v110a" : TOM3$="o2%l2u0@v110g"
  32. 10310 TOM4$="o2%l6u0@v110f"  :  SNRS$="o2%cu0@v110d"
  33. 10320 '
  34. 10330 'ドラムパターン
  35. 10340 '
  36. 10350 RYM_P1$="l4"+BSD$+SNR$+BSD$+"16"+BSD$+"8."+SNR$+"8"+BSD$+"8"
  37. 10360 RYM_P2$="l4"+BSD$+SNR$+BSD$+"16"+BSD$+"8"+BSD$+"16"+SNR$+"8"+BSD$+"8"
  38. 10370 RYM_P3$=BSD$+"8l16"+BSD$+BSD$+SNR$+"4"+BSD$+BSD$+"8"+BSD$+SNR$+"8"+BSD$+BSD$
  39. 10380 RYM_P4$="l4"+BSD$+SNR$+"l16"+BSD$+BSD$+"8"+BSD$+SNR$+"8"+SNR$+SNR$
  40. 10390 RYM_P5$="l8"+BSD$+BSD$+SNR$+"4"+BSD$+"16"+BSD$+"16"+BSD$+SNR$+"4"
  41. 10400 RYM_P6$="l8"+BSD$+BSD$+"l4"+SNR$+BSD$+"8l16"+BSD$+BSD$+"l8"+SNR$+SNR$
  42. 10410 RYM_P7$="l8"+BSD$+BSD$+"l4"+SNR$+BSD$+"8l16"+BSD$+SNR$+SNR$+SNR$+SNR$+BSD$
  43. 10420 RYM_P8$="l8"+BSD$+BSD$+"l4"+SNR$+BSD$+"8l16"+BSD$+BSD$+SNR$+BSD$+SNR$+SNR$
  44. 10430 RYM_P9$="l8"+BSD$+BSD$+"l4"+SNR$+BSD$+"8l16"+BSD$+SNR$+SNR$+SNR$+SNR$+SNR$
  45. 10440 RYM_P10$="l4r"+SNRS$+"r"+SNRS$
  46. 10450 RYM_P11$="l4r"+SNRS$+"l16r4"+SNRS$+"8"+SNRS$+SNRS$
  47. 10460 RYM_P12$="l4r"+SNRS$+"rl8"+SNRS$+SNRS$
  48. 10470 RYM_P13$="l4r"+SNRS$+"r8.l16"+SNRS$+SNRS$+SNRS$+SNRS$+"8"
  49. 10480 RYM_P14$="l4r"+SNRS$+"rl16"+SNRS$+"r"+SNRS$+SNRS$
  50. 10490 RYM_P15$="l4r"+SNRS$+"r8.l16"+SNRS$+SNRS$+SNRS$+SNRS$+SNRS$
  51. 10500 '
  52. 10510 'シンバル
  53. 10520 '
  54. 10530 HIH_P1$="l4"+HIH$+HIH$+HIH$+HIH$
  55. 10540 HIH_P2$="l4"+CRS_R$+HIH$+HIH$+HIH$
  56. 10550 HIH_P2L$="l4"+CRS_L$+HIH$+HIH$+HIH$
  57. 10560 '
  58. 10570 '
  59. 10580 BAS_1$="l8ab>cd8.c16<b>c<b"
  60. 10590 BAS_2$="l8ab>cd.c16cc<b"
  61. 10600 '
  62. 10610 '演奏開始
  63. 10620 '
  64. 10630 GOSUB *SET : GOSUB *T_1 : GOSUB *T_1 : GOSUB *T_2 : GOSUB *T_3
  65. 10640 GOSUB *T_1 : GOSUB *T_1 : GOSUB *T_2 : GOSUB *T_4 : GOSUB *T_5
  66. 10650 GOSUB *T_6 : GOSUB *T_5 : GOSUB *T_5 : GOSUB *T_END : END
  67. 10660 '
  68. 10670 '
  69. 10680 *SET
  70. 10690 PLAY "%O0H0","%O0H1","%O0H2","%O0H3","%O0H4","%O0H5","%O0H6","%O0H7","%O0H8","%O0H9"
  71. 10700 PLAY "r2"+TEMPO$
  72. 10710 PLAY DRUM_SET$,BASS_1$,BASS_2$,STR_1$,STR_1$+"%l4",STR_1$+"%r4",GTUI_C1$,FANTA$,,"@1"
  73. 10720 PLAY "@c91/100","@c91/100","@c91/100","@c91/100","@c91/100","@c91/100","@c91/120","@c91/80","@c91/100","@c91/110","@c91/100"
  74. 10730 PLAY "@c93/30","@c93/30","@c93/30","@c93/30","@c93/30","@c93/30","@c93/60","@c93/30","@c93/30","@c93/30","@c93/30","@c93/30"
  75. 10740 RETURN
  76. 10750 *T_1
  77. 10760 PLAY RYM_P1$,BAS_1$,BAS_1$,"c1","e1","a1",GT_1$,,HIH_P2$,RYM_P10$
  78. 10770 PLAY RYM_P2$,BAS_2$,BAS_2$,"c1","f1","a1",GT_2$,,HIH_P1$,RYM_P10$
  79. 10780 PLAY RYM_P3$,BAS_1$,BAS_1$,"c1","e1","a1",GT_1$,,HIH_P1$,RYM_P10$
  80. 10790 PLAY RYM_P4$,BAS_2$,BAS_2$,"c1","f1","a1",GT_2$,,HIH_P1$,RYM_P11$
  81. 10800 RETURN
  82. 10810 *T_2
  83. 10820 PLAY RYM_P5$,"l8ee4e16e16ee4.","l8ee4e16e16ee4.","c1","e1","a1",GT_3$,,HIH_P2$,RYM_P10$
  84. 10830 PLAY RYM_P6$,"l8ff4fff4.","l8ff4fff4.","c1","f1","a1",GT_4$,,HIH_P1$,RYM_P12$
  85. 10840 PLAY RYM_P5$,"l8ee4eee4.","l8ee4eee4.","c1","e1","a1",GT_3$,,HIH_P2$,RYM_P10$
  86. 10850 PLAY RYM_P7$,"l8ff4fff4.","l8ff4fff4.","c1","f1","a1",GT_4$,,HIH_P1$,RYM_P13$
  87. 10860 PLAY RYM_P5$,"l8ee4e16e16ee4.","l8ee4e16e16ee4.","c1","e1","a1",GT_3$,,HIH_P2$,RYM_P10$
  88. 10870 PLAY RYM_P6$,"l8ff4fff4.","l8ff4fff4.","c1","f1","a1",GT_4$,,HIH_P1$,RYM_P12$
  89. 10880 PLAY RYM_P5$,"l8ee4eee4.","l8ee4eee4.","c1","e1","a1",GT_3$,,HIH_P2$,RYM_P10$
  90. 10890 PLAY RYM_P8$,"l8ff4fff4.","l8ff4fff4.","c1","f1","a1",GT_4$,,HIH_P1$,RYM_P14$
  91. 10900 RETURN
  92. 10910 *T_3
  93. 10920 RYM$="l16"+SNR$+SNR$+SNR$+SNR$+SNR$+SNR$+SNR$+SNR$
  94. 10930 PLAY RYM$,,,,,,,,,"l16"+SNRS$+SNRS$+SNRS$+SNRS$+SNRS$+SNRS$+SNRS$+SNRS$
  95. 10940 GT_1$="l8ceacaece"
  96. 10950 GT_2$="l8cfacafcf"
  97. 10960 GT_3$="@v80l8aecaceae"
  98. 10970 GT_4$="l8afcacfaf"
  99. 10980 RETURN
  100. 10990 *T_4
  101. 11000 GT_1$="@v80l8c16eaeca16ce"
  102. 11010 GT_2$="l8c16fafca16cf"
  103. 11020 GT_3$="@v86l16bgd@v90b8g8@v86gd16@v90g8b8@v86g16@v90d8"
  104. 11030 GT_4$="@v82l8c16egecg16c16e16c"
  105. 11040 PLAY RYM_P1$,BAS_1$,BAS_1$,"c1","e1","a1",GT_1$,"l4c8<fa>c.",HIH_P2$,RYM_P10$
  106. 11050 PLAY RYM_P2$,BAS_2$,BAS_2$,"c1","f1","a1",GT_2$,"l4<c8faf.>",HIH_P1$,RYM_P10$
  107. 11060 PLAY RYM_P3$,BAS_1$,BAS_1$,"d1","g1","b1",GT_3$,"l4<g8dgb.>",HIH_P2$,RYM_P10$
  108. 11070 PLAY RYM_P8$,BAS_2$,BAS_2$,"c1","e1","g1",GT_4$,"l4c8<e>c<b.>",HIH_P1$,RYM_P14$
  109. 11080 RETURN
  110. 11090 *T_5
  111. 11100 GT_1$="@v82l8ae16c4e16c16ea4e16"
  112. 11110 GT_2$="l8c16fafca16cf"
  113. 11120 GT_3$="l8b16dg4bd16gb4"
  114. 11130 GT_4$="l8c16egecg16c16e16c"
  115. 11140 PLAY RYM_P1$,BAS_1$,BAS_1$,"c1","e1","a1",GT_1$,"@v127e2.d4@v117",HIH_P2$,RYM_P10$
  116. 11150 PLAY RYM_P1$,BAS_1$,BAS_1$,"c1","e1","a1",GT_1$,"l4c8<fa>c.",HIH_P2$,RYM_P10$
  117. 11160 PLAY RYM_P9$,BAS_2$,BAS_2$,"c1","f1","a1",GT_2$,"l4<c8faf.>",HIH_P1$,RYM_P15$
  118. 11170 PLAY RYM_P3$,BAS_1$,BAS_1$,"d1","g1","b1",GT_3$,"l4<g8dgb.>",HIH_P2$,RYM_P10$
  119. 11180 PLAY RYM_P8$,BAS_2$,BAS_2$,"c1","e1","g1",GT_4$,"l4c8<e>c<b.>",HIH_P1$,RYM_P14$
  120. 11190 RETURN
  121. 11200 *T_6
  122. 11210 GT_1$="@v85l8c16@v80eaec@v85a16@v80ce@v65c"
  123. 11220 GT_2$="l8@v85c16@v80fafc@v85a16@v80cf@v65c"
  124. 11230 GT_3$="@v86l16bgd@v90b8g8@v86gd16@v90g8b8@v86g16@v90d8"
  125. 11240 GT_4$="@v85l8c16@v80egec@v85g16@v82c16@v80e16@v81c"
  126. 11250 RYM$="r2l16ro2%cu0@v60d@v65d@v74d@v77d@v83d@v90d@v110d"
  127. 11260 PLAY "l8@v110o2%cu0d@v70d@v50d@v35d@v20d@v10d4",,,"c1","e1","a1",GT_1$,"@v127e2.d4@v117","o3%r3u0@v80c+2l2"+HIH$,"l8@v120o2%cu0d@v80d@v60d@v45d@v30d@v20d4"
  128. 11270 PLAY ,,,"c1","e1","a1",GT_1$,"l4c8<fa>c.",HIH$+OPE$+"8."+HIH$+"16"+OPE$+"4"
  129. 11280 PLAY ,,,"c1","f1","a1",GT_2$,"l4<c8faf.>",HIH$+HIH$
  130. 11290 PLAY ,,,"d1","g1","b1",GT_3$,"l4<g8dgb.>",HIH$+HIH$
  131. 11300 PLAY ,,,"c1","e1","g1",GT_4$,"l4c8<e>c<b.>",HIH$+HIH$
  132. 11310 PLAY ,,,"c1","e1","a1",GT_1$,"l4<a8b>c<ba8>",HIH$+HIH$
  133. 11320 PLAY ,,,"c1","e1","a1",GT_1$,"l4c8<fa>c.",HIH$+HIH$
  134. 11330 PLAY ,,,"c1","f1","a1",GT_2$,"l4<c8faf.>",HIH$+HIH$
  135. 11340 PLAY ,,,"d1","g1","b1",GT_3$,"l4<g8dgb.>",HIH$+HIH$
  136. 11350 PLAY RYM$,,,"c1","e1","g1",GT_4$,"l4c8<e>c<b.>",CRS_R$+OPE$,"r2l16ro2%cu0@v70d@v75d@v84d@v87d@v93d@v100d@v120d"
  137. 11360 RETURN
  138. 11370 *T_END
  139. 11380 GT_1$="@v82l8c16e@v78a@v74a16@v70c@v66e@v62c16@v58e@v54a@v50a16"
  140. 11390 PLAY "l8@v120o2%cu0d@v70d@v50d@v35d@v15d@v5d4","c4","c4","c1","e1","a1",GT_1$,"@v127e1&","o3%r3u0@v95c+2","l8@v127o2%cu0d@v80d@v60d@v45d@v25d@v15d4"
  141. 11400 GT_1$="@v46l8c16e@v44a@v42a16@v40c@v38e@v36c16@v34e@v32a@v30a16@v28c16@v26e@v24a@v22a16@v20c@v18e"
  142. 11410 PLAY ,,,,,,GT_1$,"e1."
  143. 11420 PLAY "r4"
  144. 11430 RETURN
  145.